home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / menuex1a / main.frm next >
Text File  |  1999-10-07  |  2KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Menu Help"
  4.    ClientHeight    =   2385
  5.    ClientLeft      =   165
  6.    ClientTop       =   735
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2385
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Label Label2 
  13.       Alignment       =   2  'Center
  14.       Caption         =   "To see how this was done, right click the form, and select 'Menu Editor"""
  15.       Height          =   735
  16.       Left            =   600
  17.       TabIndex        =   1
  18.       Top             =   480
  19.       Width           =   3255
  20.    End
  21.    Begin VB.Label Label1 
  22.       Alignment       =   2  'Center
  23.       Caption         =   "By kr0q - worldfamouskr0q@phreaker.net"
  24.       Height          =   495
  25.       Left            =   960
  26.       TabIndex        =   0
  27.       Top             =   1440
  28.       Width           =   2655
  29.    End
  30.    Begin VB.Menu file 
  31.       Caption         =   "&File"
  32.       Begin VB.Menu new 
  33.          Caption         =   "&New"
  34.          Shortcut        =   ^N
  35.       End
  36.       Begin VB.Menu open 
  37.          Caption         =   "&Open"
  38.          Shortcut        =   ^O
  39.       End
  40.       Begin VB.Menu save 
  41.          Caption         =   "&Save"
  42.          Shortcut        =   ^S
  43.       End
  44.       Begin VB.Menu saveas 
  45.          Caption         =   "S&ave As"
  46.       End
  47.       Begin VB.Menu BREAKER 
  48.          Caption         =   "-"
  49.       End
  50.       Begin VB.Menu exit 
  51.          Caption         =   "&Exit"
  52.          Shortcut        =   ^Q
  53.       End
  54.    End
  55.    Begin VB.Menu edit 
  56.       Caption         =   "&Edit"
  57.       Begin VB.Menu copy 
  58.          Caption         =   "Copy"
  59.          Shortcut        =   ^C
  60.       End
  61.       Begin VB.Menu paste 
  62.          Caption         =   "Paste"
  63.          Shortcut        =   ^Y
  64.       End
  65.    End
  66.    Begin VB.Menu help 
  67.       Caption         =   "&Help"
  68.       Begin VB.Menu needhelp 
  69.          Caption         =   "Need Help?"
  70.       End
  71.    End
  72. End
  73. Attribute VB_Name = "Form1"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Private Sub List1_Click()
  79.  
  80. End Sub
  81.  
  82. Private Sub List1_Scroll()
  83.  
  84. End Sub
  85.  
  86. Private Sub List1_Validate(Cancel As Boolean)
  87.  
  88. End Sub
  89.  
  90. Private Sub needhelp_Click()
  91. MsgBox "LoL", , "Heh"
  92. End Sub
  93.